VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmINV 
   Caption         =   "Baseline Spend Editor"
   ClientHeight    =   18400
   ClientLeft      =   0
   ClientTop       =   -75240.01
   ClientWidth     =   18000
   OleObjectBlob   =   "frmINV.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmINV"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Written by Jalisa Greene
'Last Modified by Jalisa Greene
'Last Modified 6/10/2014

Option Explicit
Public LocID As Integer
Dim rowNum As Integer

Private Sub multipgMain_Change()
'**ACTION SUB THAT IS CALLED WHEN YOU CHANGE THE MAIN PAGE FROM INSTRUCTIONS TO CONTAINER DATA**'

    If multipgMain.Value = 1 And cmbLocations.Value <> "- Select a Location ID - " Then
        Call cmbLocations_Change
    End If
End Sub

Private Sub UserForm_Initialize()
'**ACTION SUB CALLED WHEN USER OPENS THE USERFORM**'

    Dim aCell As Range
    For Each aCell In Worksheets("INV").Range("locations")
        If Len(aCell.Value) > 0 Then
        'If cell is not empty, add to Locations box for selection'
        cmbLocations.AddItem (aCell.Value)
        End If
    Next
    'Insert Client & Audit info'
    txtClientName.Text = Worksheets("INV").Range("B1").Text
    txtAuditNum.Text = Worksheets("INV").Range("B2").Text
    txtCSGstart.Text = Worksheets("INV").Range("B3").Text
    txtCSGCmp.Text = Worksheets("INV").Range("B4").Text
    txtAuditStart.Text = Worksheets("INV").Range("B5").Text
    txtAuditCmp.Text = Worksheets("INV").Range("B6").Text
    
    'Insert all Picklist values'
    Call InsertPicklists
    
End Sub

Private Sub cmbLocations_Change()
On Error GoTo ErrorResume:
'User changed the Location'
    If (Len(cmbLocations) > 0) Then
        Call InsertLocData
        Call InsertContainerData
    End If
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainerData()
'Main method to insert Container data into the form from the ASR'
    LocID = cmbLocations.Value
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    If (multipgMain.Value = 1) Then
        Call InsertBaselineContainer1(LocID)
        Call InsertBaselineContainer2(LocID)
        Call InsertBaselineContainer3(LocID)
        Call InsertBaselineContainer4(LocID)
        Call InsertBaselineContainer5(LocID)
        Call InsertBaselineContainer6(LocID)
        Call InsertBaselineContainer7(LocID)
        Call InsertBaselineContainer8(LocID)
        Call InsertContracts(LocID)
    End If
End Sub
Private Sub btnAddNew_Click()
'User clicked Add New Location button, show Add form'
    frmAdd.Show
End Sub

Private Sub btnCancel_Click()
'User clicked Cancel button, hide this form'
    frmINV.Hide
End Sub

Private Sub btnCloseINV_Click()
'User clicked Close Form button'
Dim msg As Integer
If cmbLocations.Value <> "- Select a Location ID - " Then
    Dim closer As Integer
    'Ask if user wants to save'
    closer = MsgBox("You are now closing this form, do you wish to save?", vbYesNoCancel, "Close Baseline Spend Editor")
        'If No'
        If closer = 7 Then
        Unload frmINV
        'If Yes'
        ElseIf closer = 6 Then
            Call btnSaveINV_Click
            Unload frmINV
            'If Cancel'
        ElseIf closer = 2 Then Exit Sub
    End If
Else:
    Unload frmINV
End If
ThisWorkbook.Save
End Sub

Private Sub InsertPicklists()
Dim aCell As Range
Dim numRow As Integer
'Insert Rent and Own into the Container picklists'
    cmbRent1.AddItem ("Rent")
    cmbRent1.AddItem ("Own")
    cmbRent2.AddItem ("Rent")
    cmbRent2.AddItem ("Own")
    cmbRent3.AddItem ("Rent")
    cmbRent3.AddItem ("Own")
    cmbRent4.AddItem ("Rent")
    cmbRent4.AddItem ("Own")
    cmbRent5.AddItem ("Rent")
    cmbRent5.AddItem ("Own")
    cmbRent6.AddItem ("Rent")
    cmbRent6.AddItem ("Own")
    cmbRent7.AddItem ("Rent")
    cmbRent7.AddItem ("Rent")
    cmbRent8.AddItem ("Rent")
    cmbRent8.AddItem ("Own")
    
    'Insert Container Types into picklists'
    For Each aCell In Worksheets("Pick Lists").Range("B3:B9")
        txt1ContainType.AddItem (aCell.Value)
        txt2ContainType.AddItem (aCell.Value)
        txt3ContainType.AddItem (aCell.Value)
        txt4ContainType.AddItem (aCell.Value)
        txt5ContainType.AddItem (aCell.Value)
        txt6ContainType.AddItem (aCell.Value)
        txt7ContainType.AddItem (aCell.Value)
        txt8ContainType.AddItem (aCell.Value)
    Next
    
    'Insert types of waste into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("F3:F9")
        txt1TypeWaste.AddItem (aCell.Value)
        txt2TypeWaste.AddItem (aCell.Value)
        txt3TypeWaste.AddItem (aCell.Value)
        txt4TypeWaste.AddItem (aCell.Value)
        txt5TypeWaste.AddItem (aCell.Value)
        txt6TypeWaste.AddItem (aCell.Value)
        txt7TypeWaste.AddItem (aCell.Value)
        txt8TypeWaste.AddItem (aCell.Value)
    Next
    
    'Insert Measurements into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("D3:D5")
        txt1Mes.AddItem (aCell.Value)
        txt2Mes.AddItem (aCell.Value)
        txt3Mes.AddItem (aCell.Value)
        txt4Mes.AddItem (aCell.Value)
        txt5Mes.AddItem (aCell.Value)
        txt6Mes.AddItem (aCell.Value)
        txt7Mes.AddItem (aCell.Value)
        txt8Mes.AddItem (aCell.Value)
    Next
    
    'Insert Billing periods into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("G3:G8")
        txt1BillingPd.AddItem (aCell.Value)
        txt2BillingPd.AddItem (aCell.Value)
        txt3BillingPd.AddItem (aCell.Value)
        txt4BillingPd.AddItem (aCell.Value)
        txt5BillingPd.AddItem (aCell.Value)
        txt6BillingPd.AddItem (aCell.Value)
        txt7BillingPd.AddItem (aCell.Value)
        txt8BillingPd.AddItem (aCell.Value)
    Next
    
    'Insert Contracts into the picklists'
    For Each aCell In Worksheets("Contract Data").Range("C10:C1000")
        If aCell.Value <> "" Then
            cmbContract1.AddItem (aCell.Value)
            cmbContract2.AddItem (aCell.Value)
            cmbContract3.AddItem (aCell.Value)
            cmbContract4.AddItem (aCell.Value)
            cmbContract5.AddItem (aCell.Value)
            cmbContract6.AddItem (aCell.Value)
            cmbContract7.AddItem (aCell.Value)
            cmbContract8.AddItem (aCell.Value)
        End If
    Next
    
End Sub

Private Sub InsertLocData()
'Insert standard location data into form from ASR'
    Dim locationID As Integer
    locationID = cmbLocations.Value
        txtLocID.Value = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 1, False)
        txtAddr.Text = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 3, False)
        txtDBA.Text = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 2, False)
        txtCity.Text = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 4, False)
        txtState.Text = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 5, False)
        txtZip.Value = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 6, False)
        Dim SalesVol1 As String
        SalesVol1 = WorksheetFunction.VLookup(locationID, Worksheets("ASR").Range("A8:DB1000"), 8, False)
        txtSalesVol.Value = Format(SalesVol1, "Currency")
        
        If WorksheetFunction.VLookup(locationID, Worksheets("INV").Range("A8:DB1000"), 8, False) = "Yes" Then
            chkSeasonalVar.Value = True
        Else: chkSeasonalVar.Value = False
        End If
        If WorksheetFunction.VLookup(locationID, Worksheets("INV").Range("A8:DB1000"), 11, False) = "x" Then
            chkInvoice.Value = True
        Else: chkInvoice.Value = False
        End If
        
        If WorksheetFunction.VLookup(locationID, Worksheets("INV").Range("A8:DB1000"), 12, False) = "x" Then
            chkContract.Value = True
        Else: chkContract.Value = False
        End If

End Sub

Private Sub txt1Vendor_Change()
    Worksheets("ASR").Range("AA" & rowNum).Value = txt1Vendor.Value
End Sub
Private Sub txt1AcctNum_Change()
    Worksheets("ASR").Range("AB" & rowNum).Value = txt1AcctNum.Value
End Sub

Private Sub InsertBaselineContainer1(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 1 information from ASR'
                txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 27, False)
                txt1AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 28, False)
                txt1Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 64, False)
                txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 33, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 29, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 30, False)
                txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 31, False)
                txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 32, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 34, False)
                
                If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 35, False) <> "0") Then
                    txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 35, False)
                    Else: txt1YdsPerWeek.Text = ""
                End If
                
                cmbRent1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 36, False)
                txt1BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 38, False), "mm/dd/yyyy")
                txt1BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 40, False)
                txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 41, False), "Currency")
                txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 42, False), "Currency")
                txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 43, False)
                txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 44, False)
                txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 45, False), "Currency")
                txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 46, False)
                txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 47, False), "Currency")
                txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 48, False)
                txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 49, False), "Currency")
                txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 50, False)
                txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 51, False), "Currency")
                txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 52, False)
                txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 53, False), "Currency")
                txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 58, False)
                txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 59, False)
                txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 60, False)
                txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 61, False)
                txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 62, False)
                
                If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 54, False) <> "0") Then
                    txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 54, False), "Currency")
                    Else: txt1MonSpend.Text = ""
                End If
                
                'Initialize days of pickup to all false'
                chkMon1.Value = False
                chkTues1.Value = False
                chkWed1.Value = False
                chkThurs1.Value = False
                chkFri1.Value = False
                chkSat1.Value = False
                chkSun1.Value = False
                chkOnCall1.Value = False
                 DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 37, False)
                If DaysofPickup <> "" Then
                    'if there is a monday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "M") <> 0 Then
                            chkMon1.Value = True
                        Else: chkMon1.Value = False
                        End If
                    'if there is a tuesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "T") <> 0 Then
                            chkTues1.Value = True
                        Else: chkTues1.Value = False
                        End If
                    'if there is a wednesday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "W") <> 0 Then
                            chkWed1.Value = True
                        Else: chkWed1.Value = False
                        End If
                    'if there is a thursday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "R") <> 0 Then
                            chkThurs1.Value = True
                        Else: chkThurs1.Value = False
                        End If
                    'if there is a friday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "F") <> 0 Then
                            chkFri1.Value = True
                        Else: chkFri1.Value = False
                        End If
                    'if there is a saturday pickup, enable that checkbox'
                            If InStr(DaysofPickup, "S") <> 0 Then
                            chkSat1.Value = True
                        Else: chkSat1.Value = False
                        End If
                    'if there is a sunday pickup, enable that checkbox'
                        If InStr(DaysofPickup, "N") <> 0 Then
                            chkSun1.Value = True
                        Else: chkSun1.Value = False
                        End If
                    'if there is a oncall pickup, enable that checkbox'
                        If InStr(DaysofPickup, "C") <> 0 Then
                            chkOnCall1.Value = True
                        Else: chkOnCall1.Value = False
                        End If
                End If
End Sub

Private Sub InsertBaselineContainer2(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 2 information from the ASR'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 79, False) <> "" Then
        txt2Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 79, False)
        txt2AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 80, False)
    Else:
        txt2Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 27, False)
        txt2AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 28, False)
    End If

    txt2Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 116, False)
    txt2TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 81, False)
    txt2NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 82, False)
    txt2SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 83, False)
    txt2Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 84, False)
    txt2ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 85, False)
    txt2NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 86, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 87, False) <> "0") Then
        txt2YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 87, False)
        Else: txt2YdsPerWeek.Text = ""
    End If
    
    cmbRent2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 88, False)
    txt2BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 90, False), "mm/dd/yyyy")
    txt2BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 91, False)
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 93, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 94, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 95, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 96, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 97, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 98, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 99, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 100, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 101, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 102, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 103, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 104, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 105, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 110, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 111, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 112, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 113, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 114, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 106, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 106, False), "Currency")
        Else: txt2MonSpend.Value = ""
    End If
    
    'Initialize days of pickup to all false'
    chkMon2.Value = False
    chkTues2.Value = False
    chkWed2.Value = False
    chkThurs2.Value = False
    chkFri2.Value = False
    chkSat2.Value = False
    chkSun2.Value = False
    chkOnCall2.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 89, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon2.Value = True
            Else: chkMon2.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues2.Value = True
            Else: chkTues2.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed2.Value = True
            Else: chkWed2.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs2.Value = True
            Else: chkThurs2.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri2.Value = True
            Else: chkFri2.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat2.Value = True
            Else: chkSat2.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun2.Value = True
            Else: chkSun2.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall2.Value = True
            Else: chkOnCall2.Value = False
            End If
    End If
End Sub

Private Sub InsertBaselineContainer3(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 3 Information from the ASR'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 131, False) <> "" Then
        txt3Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 131, False)
        txt3AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 132, False)
    Else:
        txt3Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 27, False)
        txt3AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 28, False)
    End If
    
    txt3Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 168, False)
    txt3TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 133, False)
    txt3NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 134, False)
    txt3SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 135, False)
    txt3Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 136, False)
    txt3ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 137, False)
    txt3NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 138, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 139, False) <> "0") Then
        txt3YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 139, False)
        Else: txt3YdsPerWeek.Text = ""
    End If
    
    cmbRent3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 140, False)
    txt3BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 142, False), "mm/dd/yyyy")
    txt3BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 143, False)
    txt3BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 145, False), "Currency")
    txt3EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 146, False), "Currency")
    txt3FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 147, False)
    txt3FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 148, False)
    txt3FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 149, False), "Currency")
    txt3FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 150, False)
    txt3FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 151, False), "Currency")
    txt3FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 152, False)
    txt3FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 153, False), "Currency")
    txt3FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 154, False)
    txt3FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 155, False), "Currency")
    txt3FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 156, False)
    txt3FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 157, False)
    txt3Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 162, False)
    txt3Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 163, False)
    txt3Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 164, False)
    txt3Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 165, False)
    txt3Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 166, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 158, False) <> "0") Then
        txt3MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 158, False), "Currency")
        Else: txt3MonSpend.Text = ""
    End If
    
    'Initialize days of pickup to all false'
    chkMon3.Value = False
    chkTues3.Value = False
    chkWed3.Value = False
    chkThurs3.Value = False
    chkFri3.Value = False
    chkSat3.Value = False
    chkSun3.Value = False
    chkOnCall3.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 141, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon3.Value = True
            Else: chkMon3.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues3.Value = True
            Else: chkTues3.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed3.Value = True
            Else: chkWed3.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs3.Value = True
            Else: chkThurs3.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri3.Value = True
            Else: chkFri3.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat3.Value = True
            Else: chkSat3.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun3.Value = True
            Else: chkSun3.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall3.Value = True
            Else: chkOnCall3.Value = False
            End If
    End If
                    
End Sub

Private Sub InsertBaselineContainer4(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 4 information from the ASR'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 183, False) <> "" Then
        txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 183, False)
        txt4AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 184, False)
    Else:
        txt4Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 27, False)
        txt4AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 28, False)
    End If
                
    txt4Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 220, False)
    txt4TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 185, False)
    txt4NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 186, False)
    txt4SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 187, False)
    txt4Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 188, False)
    txt4ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 189, False)
    txt4NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 190, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 191, False) <> "0") Then
        txt4YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 191, False)
        Else: txt4YdsPerWeek.Text = ""
    End If
    
    cmbRent4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 192, False)
    txt4BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 194, False), "mm/dd/yyyy")
    txt4BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 195, False)
    txt4BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 197, False), "Currency")
    txt4EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 198, False), "Currency")
    txt4FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 199, False)
    txt4FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 200, False)
    txt4FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 201, False), "Currency")
    txt4FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 202, False)
    txt4FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 203, False), "Currency")
    txt4FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 204, False)
    txt4FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 205, False), "Currency")
    txt4FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 206, False)
    txt4FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 207, False), "Currency")
    txt4FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 208, False)
    txt4FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 209, False), "Currency")
    txt4Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 214, False)
    txt4Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 215, False)
    txt4Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 216, False)
    txt4Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 217, False)
    txt4Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 218, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 210, False) <> "0") Then
        txt4MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 210, False), "Currency")
        Else: txt4MonSpend.Text = ""
    End If
    
    'Initialize days of pickup to all false'
    chkMon4.Value = False
    chkTues4.Value = False
    chkWed4.Value = False
    chkThurs4.Value = False
    chkFri4.Value = False
    chkSat4.Value = False
    chkSun4.Value = False
    chkOnCall4.Value = False
    
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 193, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon4.Value = True
            Else: chkMon4.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues4.Value = True
            Else: chkTues4.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed4.Value = True
            Else: chkWed4.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs4.Value = True
            Else: chkThurs4.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri4.Value = True
            Else: chkFri4.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat4.Value = True
            Else: chkSat4.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun4.Value = True
            Else: chkSun4.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall4.Value = True
            Else: chkOnCall4.Value = False
            End If
    End If
                    
End Sub

Private Sub InsertBaselineContainer5(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 5 information from the ASR'

    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 235, False) <> "" Then
        txt5Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 235, False)
        txt5AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 236, False)
    Else:
        txt5Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 27, False)
        txt5AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 28, False)
    End If

    txt5Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 272, False)
    txt5TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 237, False)
    txt5NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 238, False)
    txt5SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 239, False)
    txt5Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 240, False)
    txt5ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 241, False)
    txt5NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 242, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 243, False) <> "0") Then
        txt5YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 243, False)
        Else: txt5YdsPerWeek.Text = ""
    End If
    
    cmbRent5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 244, False)
    txt5BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 246, False), "mm/dd/yyyy")
    txt5BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 247, False)
    txt5BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 249, False), "Currency")
    txt5EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 250, False), "Currency")
    txt5FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 251, False)
    txt5FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 252, False)
    txt5FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 253, False), "Currency")
    txt5FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 254, False)
    txt5FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 255, False), "Currency")
    txt5FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 256, False)
    txt5FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 257, False), "Currency")
    txt5FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 258, False)
    txt5FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 259, False), "Currency")
    txt5FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 260, False)
    txt5FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 261, False), "Currency")
    txt5Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 266, False)
    txt5Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 267, False)
    txt5Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 268, False)
    txt5Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 269, False)
    txt5Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 270, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 262, False) <> "0") Then
        txt5MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 262, False), "Currency")
        Else: txt5MonSpend.Text = ""
    End If
    
    'Initialize days of pickup to all false'
    chkMon5.Value = False
    chkTues5.Value = False
    chkWed5.Value = False
    chkThurs5.Value = False
    chkFri5.Value = False
    chkSat5.Value = False
    chkSun5.Value = False
    chkOnCall5.Value = False
    
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 245, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon5.Value = True
            Else: chkMon5.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues5.Value = True
            Else: chkTues5.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed5.Value = True
            Else: chkWed5.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs5.Value = True
            Else: chkThurs5.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri5.Value = True
            Else: chkFri5.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat5.Value = True
            Else: chkSat5.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun5.Value = True
            Else: chkSun5.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall5.Value = True
            Else: chkOnCall5.Value = False
            End If
    End If
End Sub

Private Sub InsertBaselineContainer6(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 6 information from the ASR'
    txt6Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 287, False)
    txt6AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 288, False)
    txt6Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 330, False)
    txt6TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 289, False)
    txt6NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 290, False)
    txt6SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 291, False)
    txt6Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 292, False)
    txt6ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 293, False)
    txt6NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 294, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 295, False) <> "0") Then
        txt6YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 295, False)
        Else: txt6YdsPerWeek.Text = ""
    End If

    txt6MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 296, False)
    txt6QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 297, False)
    txt6HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 298, False)
    txt6WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 299, False)
    txt6FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 300, False)
    txt6FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 301, False)
    
    cmbRent6.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 302, False)
    txt6BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 304, False), "mm/dd/yyyy")
    txt6BillingPd.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 305, False)
    txt6BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 307, False), "Currency")
    txt6EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 308, False), "Currency")
    txt6FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 309, False)
    txt6FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 310, False)
    txt6FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 311, False), "Currency")
    txt6FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 312, False)
    txt6FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 313, False), "Currency")
    txt6FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 314, False)
    txt6FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 315, False), "Currency")
    txt6FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 316, False)
    txt6FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 317, False), "Currency")
    txt6FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 318, False)
    txt6FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 319, False), "Currency")
    txt6Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 324, False)
    txt6Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 325, False)
    txt6Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 326, False)
    txt6Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 327, False)
    txt6Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 328, False)
    
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 320, False) <> "0") Then
        txt6MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 320, False), "Currency")
        Else: txt6MonSpend.Text = ""
    End If
    
    'Initialize days of pickup to all false'
    chkMon6.Value = False
    chkTues6.Value = False
    chkWed6.Value = False
    chkThurs6.Value = False
    chkFri6.Value = False
    chkSat6.Value = False
    chkSun6.Value = False
    chkOnCall6.Value = False
    
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 303, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon6.Value = True
            Else: chkMon6.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues6.Value = True
            Else: chkTues6.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed6.Value = True
            Else: chkWed6.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs6.Value = True
            Else: chkThurs6.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri6.Value = True
            Else: chkFri6.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat6.Value = True
            Else: chkSat6.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun6.Value = True
            Else: chkSun6.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall6.Value = True
            Else: chkOnCall6.Value = False
            End If
    End If
End Sub

Private Sub InsertBaselineContainer7(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 7 information from the ASR'
    txt7Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 339, False)
    txt7AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 340, False)
    txt7Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 382, False)
    txt7TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 341, False)
    txt7NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 342, False)
    txt7SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 343, False)
    txt7Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 344, False)
    txt7ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 345, False)
    txt7NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 346, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 347, False) <> "0") Then
        txt7YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 347, False)
        Else: txt7YdsPerWeek.Text = ""
    End If
    
    txt7MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 348, False)
    txt7QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 349, False)
    txt7HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 350, False)
    txt7WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 351, False)
    txt7FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 352, False)
    txt7FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 353, False)
    
    cmbRent7.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 354, False)
    txt7BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 356, False), "mm/dd/yyyy")
    txt7BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 357, False)
    txt7BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 359, False), "Currency")
    txt7EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 360, False), "Currency")
    txt7FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 361, False)
    txt7FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 362, False)
    txt7FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 363, False), "Currency")
    txt7FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 364, False)
    txt7FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 365, False), "Currency")
    txt7FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 366, False)
    txt7FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 367, False), "Currency")
    txt7FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 368, False)
    txt7FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 369, False), "Currency")
    txt7FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 370, False)
    txt7FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 371, False), "Currency")
    txt7Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 376, False)
    txt7Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 377, False)
    txt7Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 378, False)
    txt7Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 379, False)
    txt7Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 380, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 372, False) <> "0") Then
        txt7MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 372, False), "Currency")
        Else: txt7MonSpend.Text = ""
    End If
    
    
    'Initialize days of pickup to all false'
    chkMon7.Value = False
    chkTues7.Value = False
    chkWed7.Value = False
    chkThurs7.Value = False
    chkFri7.Value = False
    chkSat7.Value = False
    chkSun7.Value = False
    chkOnCall7.Value = False
    
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 355, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon7.Value = True
            Else: chkMon7.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues7.Value = True
            Else: chkTues7.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed7.Value = True
            Else: chkWed7.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs7.Value = True
            Else: chkThurs7.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri7.Value = True
            Else: chkFri7.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat7.Value = True
            Else: chkSat7.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun7.Value = True
            Else: chkSun7.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall7.Value = True
            Else: chkOnCall7.Value = False
            End If
    End If
End Sub

Private Sub InsertBaselineContainer8(LocID As Integer)
Dim DaysofPickup As String

'Insert Container 8 information from the ASR'
    txt8Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 391, False)
    txt8AcctNum.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 392, False)
    txt8Hauler.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 434, False)
    txt8TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 393, False)
    txt8NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 394, False)
    txt8SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 395, False)
    txt8Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 396, False)
    txt8ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 397, False)
    txt8NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 398, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 399, False) <> "0") Then
        txt8YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 399, False)
        Else: txt8YdsPerWeek.Text = ""
    End If
    
    txt8MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 400, False)
    txt8QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 401, False)
    txt8HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 402, False)
    txt8WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 403, False)
    txt8FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 404, False)
    txt8FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 405, False)
    
    cmbRent8.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 406, False)
    txt8BaseInvDate.Text = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 408, False), "mm/dd/yyyy")
    txt8BillingPd.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 409, False)
    txt8BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 411, False), "Currency")
    txt8EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 412, False), "Currency")
    txt8FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 413, False)
    txt8FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 414, False)
    txt8FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 415, False), "Currency")
    txt8FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 416, False)
    txt8FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 417, False), "Currency")
    txt8FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 418, False)
    txt8FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 419, False), "Currency")
    txt8FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 420, False)
    txt8FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 421, False), "Currency")
    txt8FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 422, False)
    txt8FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 423, False), "Currency")
    txt8Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 428, False)
    txt8Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 429, False)
    txt8Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 430, False)
    txt8Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 431, False)
    txt8Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 432, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 424, False) <> "0") Then
        txt8MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 424, False), "Currency")
        Else: txt8MonSpend.Text = ""
    End If
    
    'Initialize days of pickup to all false'
    chkMon8.Value = False
    chkTues8.Value = False
    chkWed8.Value = False
    chkThurs8.Value = False
    chkFri8.Value = False
    chkSat8.Value = False
    chkSun8.Value = False
    chkOnCall8.Value = False
    
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 407, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon8.Value = True
            Else: chkMon8.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues8.Value = True
            Else: chkTues8.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed8.Value = True
            Else: chkWed8.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs8.Value = True
            Else: chkThurs8.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri8.Value = True
            Else: chkFri8.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat8.Value = True
            Else: chkSat8.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun8.Value = True
            Else: chkSun8.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall8.Value = True
            Else: chkOnCall8.Value = False
            End If
    End If
End Sub
Private Sub InsertContracts(LocID As Integer)
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 57, False)
    cmbContract2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 109, False)
    cmbContract3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 161, False)
    cmbContract4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 213, False)
    cmbContract5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 265, False)
    cmbContract6.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 323, False)
    cmbContract7.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 375, False)
    cmbContract8.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ1000"), 427, False)
    
    
End Sub
'Save Location Standard Data when you recieve a range as input'
Private Sub SaveLocData(LocID As Range)
    
    rowNum = WorksheetFunction.Match(LocID, Worksheets("ASR").Range("locations"), 0) + 7
    Worksheets("INV").Range("A" & rowNum).Value = frmINV.txtLocID.Value
    Worksheets("INV").Range("B" & rowNum).Value = frmINV.txtDBA.Value
    Worksheets("INV").Range("C" & rowNum).Value = frmINV.txtAddr.Value
    Worksheets("INV").Range("D" & rowNum).Value = frmINV.txtCity.Value
    Worksheets("INV").Range("E" & rowNum).Value = frmINV.txtState.Value
    Worksheets("INV").Range("F" & rowNum).Value = frmINV.txtZip.Value
    Worksheets("INV").Range("I" & rowNum).Value = frmINV.txtSalesVol.Value
    If chkInvoice.Value = True Then
        Worksheets("INV").Range("K" & rowNum).Value = "x"
    Else: Worksheets("INV").Range("K" & rowNum).Value = ""
    End If
    If chkContract.Value = True Then
        Worksheets("INV").Range("L" & rowNum).Value = "x"
    Else: Worksheets("INV").Range("L" & rowNum).Value = ""
    End If
    If chkSeasonalVar.Value = True Then
        Worksheets("INV").Range("H" & rowNum).Value = "Yes"
    Else: Worksheets("INV").Range("H" & rowNum).Value = "No"
    End If
End Sub

'Save Location Standard Data when you recieve an integer as input'
Private Sub SaveILocData(LocID As Integer)
        
        rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
        Worksheets("INV").Range("A" & rowNum).Value = frmINV.txtLocID.Value
        Worksheets("INV").Range("B" & rowNum).Value = frmINV.txtDBA.Value
        Worksheets("INV").Range("C" & rowNum).Value = frmINV.txtAddr.Value
        Worksheets("INV").Range("D" & rowNum).Value = frmINV.txtCity.Value
        Worksheets("INV").Range("E" & rowNum).Value = frmINV.txtState.Value
        Worksheets("INV").Range("F" & rowNum).Value = frmINV.txtZip.Value
        Worksheets("INV").Range("I" & rowNum).Value = frmINV.txtSalesVol.Value
        If chkInvoice.Value = True Then
            Worksheets("INV").Range("K" & rowNum).Value = "x"
        Else: Worksheets("INV").Range("K" & rowNum).Value = ""
        End If
        If chkContract.Value = True Then
            Worksheets("INV").Range("L" & rowNum).Value = "x"
        Else: Worksheets("INV").Range("L" & rowNum).Value = ""
        End If
        If chkSeasonalVar.Value = True Then
        Worksheets("INV").Range("H" & rowNum).Value = "Yes"
    Else: Worksheets("INV").Range("H" & rowNum).Value = "No"
    End If
End Sub


Private Sub SaveCont1(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 1 information'
    Worksheets("ASR").Range("AA" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AB" & rowNum).Value = txt1AcctNum.Text
    Worksheets("ASR").Range("BL" & rowNum).Value = txt1Hauler.Text
    Worksheets("ASR").Range("AG" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AC" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AD" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AE" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AF" & rowNum).Value = txt1ContainType.Text
    Worksheets("ASR").Range("AH" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AJ" & rowNum).Value = cmbRent1.Text
    Worksheets("ASR").Range("AL" & rowNum).Value = txt1BaseInvDate.Text
    Worksheets("ASR").Range("AN" & rowNum).Value = txt1BillingPd.Text
    Worksheets("ASR").Range("AO" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("AP" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("AQ" & rowNum).Value = txt1FuelFee.Value
    Worksheets("ASR").Range("AR" & rowNum).Value = txt1FeeType1.Text
    Worksheets("ASR").Range("AS" & rowNum).Value = txt1FeePrice1.Value
    Worksheets("ASR").Range("AT" & rowNum).Value = txt1FeeType2.Text
    Worksheets("ASR").Range("AU" & rowNum).Value = txt1FeePrice2.Value
    Worksheets("ASR").Range("AV" & rowNum).Value = txt1FeeType3.Text
    Worksheets("ASR").Range("AW" & rowNum).Value = txt1FeePrice3.Value
    Worksheets("ASR").Range("AX" & rowNum).Value = txt1FeeType4.Text
    Worksheets("ASR").Range("AY" & rowNum).Value = txt1FeePrice4.Value
    Worksheets("ASR").Range("AZ" & rowNum).Value = txt1FeeType5.Text
    Worksheets("ASR").Range("BA" & rowNum).Value = txt1FeePrice5.Value
    Worksheets("ASR").Range("BF" & rowNum).Value = txt1Rate1.Value
    Worksheets("ASR").Range("BG" & rowNum).Value = txt1Rate2.Value
    Worksheets("ASR").Range("BH" & rowNum).Value = txt1Rate3.Value
    Worksheets("ASR").Range("BI" & rowNum).Value = txt1Rate4.Value
    Worksheets("ASR").Range("BJ" & rowNum).Value = txt1Rate5.Value
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("QZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("QZ" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("RA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RA" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("RB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RB" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("RC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RC" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("RD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RD" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("RE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RE" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("RF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RF" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("RG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RG" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont2(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 2 Information'
    Worksheets("ASR").Range("CA" & rowNum).Value = txt2Vendor.Text
    Worksheets("ASR").Range("CB" & rowNum).Value = txt2AcctNum.Text
    Worksheets("ASR").Range("DL" & rowNum).Value = txt2Hauler.Text
    Worksheets("ASR").Range("CC" & rowNum).Value = txt2TypeWaste.Text
    Worksheets("ASR").Range("CD" & rowNum).Value = txt2NumContain.Value
    Worksheets("ASR").Range("CE" & rowNum).Value = txt2SzContain.Value
    Worksheets("ASR").Range("CF" & rowNum).Value = txt2Mes.Text
    Worksheets("ASR").Range("CG" & rowNum).Value = txt2ContainType.Text
    Worksheets("ASR").Range("CH" & rowNum).Value = txt2NumPickups.Value
                
    Worksheets("ASR").Range("CJ" & rowNum).Value = cmbRent2.Text
    Worksheets("ASR").Range("CL" & rowNum).Value = txt2BaseInvDate.Text
    Worksheets("ASR").Range("CM" & rowNum).Value = txt2BillingPd.Text
    Worksheets("ASR").Range("CO" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("CP" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("CQ" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("CR" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("CS" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("CT" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("CU" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("CV" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("CW" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("CX" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("CY" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("CZ" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("DA" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("DF" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("DG" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("DH" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("DI" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("DJ" & rowNum).Value = txt2Rate5.Value
    
    If chkMon2.Value = True Then
    Worksheets("ASR").Range("RJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RJ" & rowNum).Value = ""
    End If
    If chkTues2.Value = True Then
    Worksheets("ASR").Range("RK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RK" & rowNum).Value = ""
    End If
    If chkWed2.Value = True Then
    Worksheets("ASR").Range("RL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RL" & rowNum).Value = ""
    End If
    If chkThurs2.Value = True Then
    Worksheets("ASR").Range("RM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RM" & rowNum).Value = ""
    End If
    If chkFri2.Value = True Then
    Worksheets("ASR").Range("RN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RN" & rowNum).Value = ""
    End If
    If chkSat2.Value = True Then
    Worksheets("ASR").Range("RO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RO" & rowNum).Value = ""
    End If
    If chkSun2.Value = True Then
    Worksheets("ASR").Range("RP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RP" & rowNum).Value = ""
    End If
    If chkOnCall2.Value = True Then
    Worksheets("ASR").Range("RQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RQ" & rowNum).Value = ""
    End If
    
End Sub

Private Sub SaveCont3(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 3 Information'
    Worksheets("ASR").Range("EA" & rowNum).Value = txt3Vendor.Text
    Worksheets("ASR").Range("EB" & rowNum).Value = txt3AcctNum.Text
    Worksheets("ASR").Range("FL" & rowNum).Value = txt3Hauler.Text
    Worksheets("ASR").Range("EC" & rowNum).Value = txt3TypeWaste.Text
    Worksheets("ASR").Range("ED" & rowNum).Value = txt3NumContain.Value
    Worksheets("ASR").Range("EE" & rowNum).Value = txt3SzContain.Value
    Worksheets("ASR").Range("EF" & rowNum).Value = txt3Mes.Text
    Worksheets("ASR").Range("EG" & rowNum).Value = txt3ContainType.Text
    Worksheets("ASR").Range("EH" & rowNum).Value = txt3NumPickups.Value
                
    Worksheets("ASR").Range("EJ" & rowNum).Value = cmbRent3.Text
    Worksheets("ASR").Range("EL" & rowNum).Value = txt3BaseInvDate.Text
    Worksheets("ASR").Range("EM" & rowNum).Value = txt3BillingPd.Text
    Worksheets("ASR").Range("EO" & rowNum).Value = txt3BaseSvc.Value
    Worksheets("ASR").Range("EP" & rowNum).Value = txt3EnvFee.Value
    Worksheets("ASR").Range("EQ" & rowNum).Value = txt3FuelFee.Value
    Worksheets("ASR").Range("ER" & rowNum).Value = txt3FeeType1.Text
    Worksheets("ASR").Range("ES" & rowNum).Value = txt3FeePrice1.Value
    Worksheets("ASR").Range("ET" & rowNum).Value = txt3FeeType2.Text
    Worksheets("ASR").Range("EU" & rowNum).Value = txt3FeePrice2.Value
    Worksheets("ASR").Range("EV" & rowNum).Value = txt3FeeType3.Text
    Worksheets("ASR").Range("EW" & rowNum).Value = txt3FeePrice3.Value
    Worksheets("ASR").Range("EX" & rowNum).Value = txt3FeeType4.Text
    Worksheets("ASR").Range("EY" & rowNum).Value = txt3FeePrice4.Value
    Worksheets("ASR").Range("EZ" & rowNum).Value = txt3FeeType5.Text
    Worksheets("ASR").Range("FA" & rowNum).Value = txt3FeePrice5.Value
    Worksheets("ASR").Range("FF" & rowNum).Value = txt3Rate1.Value
    Worksheets("ASR").Range("FG" & rowNum).Value = txt3Rate2.Value
    Worksheets("ASR").Range("FH" & rowNum).Value = txt3Rate3.Value
    Worksheets("ASR").Range("FI" & rowNum).Value = txt3Rate4.Value
    Worksheets("ASR").Range("JJ" & rowNum).Value = txt3Rate5.Value
    
    
    If chkMon3.Value = True Then
    Worksheets("ASR").Range("RT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RT" & rowNum).Value = ""
    End If
    If chkTues3.Value = True Then
    Worksheets("ASR").Range("RU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RU" & rowNum).Value = ""
    End If
    If chkWed3.Value = True Then
    Worksheets("ASR").Range("RV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RV" & rowNum).Value = ""
    End If
    If chkThurs3.Value = True Then
    Worksheets("ASR").Range("RW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RW" & rowNum).Value = ""
    End If
    If chkFri3.Value = True Then
    Worksheets("ASR").Range("RX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RX" & rowNum).Value = ""
    End If
    If chkSat3.Value = True Then
    Worksheets("ASR").Range("RY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RY" & rowNum).Value = ""
    End If
    If chkSun3.Value = True Then
    Worksheets("ASR").Range("RZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("RZ" & rowNum).Value = ""
    End If
    If chkOnCall3.Value = True Then
    Worksheets("ASR").Range("SA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SA" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont4(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 4 information'
    Worksheets("ASR").Range("GA" & rowNum).Value = txt4Vendor.Text
    Worksheets("ASR").Range("GB" & rowNum).Value = txt4AcctNum.Text
    Worksheets("ASR").Range("HL" & rowNum).Value = txt4Hauler.Text
    Worksheets("ASR").Range("GC" & rowNum).Value = txt4TypeWaste.Text
    Worksheets("ASR").Range("GD" & rowNum).Value = txt4NumContain.Value
    Worksheets("ASR").Range("GE" & rowNum).Value = txt4SzContain.Value
    Worksheets("ASR").Range("GF" & rowNum).Value = txt4Mes.Text
    Worksheets("ASR").Range("GG" & rowNum).Value = txt4ContainType.Text
    Worksheets("ASR").Range("GH" & rowNum).Value = txt4NumPickups.Value
                
    Worksheets("ASR").Range("GJ" & rowNum).Value = cmbRent4.Text
    Worksheets("ASR").Range("GL" & rowNum).Value = txt4BaseInvDate.Text
    Worksheets("ASR").Range("GM" & rowNum).Value = txt4BillingPd.Text
    Worksheets("ASR").Range("GO" & rowNum).Value = txt4BaseSvc.Value
    Worksheets("ASR").Range("GP" & rowNum).Value = txt4EnvFee.Value
    Worksheets("ASR").Range("GQ" & rowNum).Value = txt4FuelFee.Value
    Worksheets("ASR").Range("GR" & rowNum).Value = txt4FeeType1.Text
    Worksheets("ASR").Range("GS" & rowNum).Value = txt4FeePrice1.Value
    Worksheets("ASR").Range("GT" & rowNum).Value = txt4FeeType2.Text
    Worksheets("ASR").Range("GU" & rowNum).Value = txt4FeePrice2.Value
    Worksheets("ASR").Range("GV" & rowNum).Value = txt4FeeType3.Text
    Worksheets("ASR").Range("GW" & rowNum).Value = txt4FeePrice3.Value
    Worksheets("ASR").Range("GX" & rowNum).Value = txt4FeeType4.Text
    Worksheets("ASR").Range("GY" & rowNum).Value = txt4FeePrice4.Value
    Worksheets("ASR").Range("GZ" & rowNum).Value = txt4FeeType5.Text
    Worksheets("ASR").Range("HA" & rowNum).Value = txt4FeePrice5.Value
    Worksheets("ASR").Range("HF" & rowNum).Value = txt4Rate1.Value
    Worksheets("ASR").Range("HG" & rowNum).Value = txt4Rate2.Value
    Worksheets("ASR").Range("HH" & rowNum).Value = txt4Rate3.Value
    Worksheets("ASR").Range("HI" & rowNum).Value = txt4Rate4.Value
    Worksheets("ASR").Range("HJ" & rowNum).Value = txt4Rate5.Value
    
    If chkMon4.Value = True Then
    Worksheets("ASR").Range("SD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SD" & rowNum).Value = ""
    End If
    If chkTues4.Value = True Then
    Worksheets("ASR").Range("SE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SE" & rowNum).Value = ""
    End If
    If chkWed4.Value = True Then
    Worksheets("ASR").Range("SF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SF" & rowNum).Value = ""
    End If
    If chkThurs4.Value = True Then
    Worksheets("ASR").Range("SG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SG" & rowNum).Value = ""
    End If
    If chkFri4.Value = True Then
    Worksheets("ASR").Range("SH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SH" & rowNum).Value = ""
    End If
    If chkSat4.Value = True Then
    Worksheets("ASR").Range("SI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SI" & rowNum).Value = ""
    End If
    If chkSun4.Value = True Then
    Worksheets("ASR").Range("SJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SJ" & rowNum).Value = ""
    End If
    If chkOnCall4.Value = True Then
    Worksheets("ASR").Range("SK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SK" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont5(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 5 information'
    Worksheets("ASR").Range("IA" & rowNum).Value = txt5Vendor.Text
    Worksheets("ASR").Range("IB" & rowNum).Value = txt5AcctNum.Text
    Worksheets("ASR").Range("JL" & rowNum).Value = txt5Hauler.Text
    Worksheets("ASR").Range("IC" & rowNum).Value = txt5TypeWaste.Text
    Worksheets("ASR").Range("ID" & rowNum).Value = txt5NumContain.Value
    Worksheets("ASR").Range("IE" & rowNum).Value = txt5SzContain.Value
    Worksheets("ASR").Range("IF" & rowNum).Value = txt5Mes.Text
    Worksheets("ASR").Range("IG" & rowNum).Value = txt5ContainType.Text
    Worksheets("ASR").Range("IH" & rowNum).Value = txt5NumPickups.Value
                
    Worksheets("ASR").Range("IJ" & rowNum).Value = cmbRent5.Text
    Worksheets("ASR").Range("IL" & rowNum).Value = txt5BaseInvDate.Text
    Worksheets("ASR").Range("IM" & rowNum).Value = txt5BillingPd.Text
    Worksheets("ASR").Range("IO" & rowNum).Value = txt5BaseSvc.Value
    Worksheets("ASR").Range("IP" & rowNum).Value = txt5EnvFee.Value
    Worksheets("ASR").Range("IQ" & rowNum).Value = txt5FuelFee.Value
    Worksheets("ASR").Range("IR" & rowNum).Value = txt5FeeType1.Text
    Worksheets("ASR").Range("IS" & rowNum).Value = txt5FeePrice1.Value
    Worksheets("ASR").Range("IT" & rowNum).Value = txt5FeeType2.Text
    Worksheets("ASR").Range("IU" & rowNum).Value = txt5FeePrice2.Value
    Worksheets("ASR").Range("IV" & rowNum).Value = txt5FeeType3.Text
    Worksheets("ASR").Range("IW" & rowNum).Value = txt5FeePrice3.Value
    Worksheets("ASR").Range("IX" & rowNum).Value = txt5FeeType4.Text
    Worksheets("ASR").Range("IY" & rowNum).Value = txt5FeePrice4.Value
    Worksheets("ASR").Range("IZ" & rowNum).Value = txt5FeeType5.Text
    Worksheets("ASR").Range("JA" & rowNum).Value = txt5FeePrice5.Value
    Worksheets("ASR").Range("JF" & rowNum).Value = txt5Rate1.Value
    Worksheets("ASR").Range("JG" & rowNum).Value = txt5Rate2.Value
    Worksheets("ASR").Range("JH" & rowNum).Value = txt5Rate3.Value
    Worksheets("ASR").Range("JI" & rowNum).Value = txt5Rate4.Value
    Worksheets("ASR").Range("JJ" & rowNum).Value = txt5Rate5.Value
    
    If chkMon5.Value = True Then
    Worksheets("ASR").Range("SN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SN" & rowNum).Value = ""
    End If
    If chkTues5.Value = True Then
    Worksheets("ASR").Range("SO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SO" & rowNum).Value = ""
    End If
    If chkWed5.Value = True Then
    Worksheets("ASR").Range("SP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SP" & rowNum).Value = ""
    End If
    If chkThurs5.Value = True Then
    Worksheets("ASR").Range("SQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SQ" & rowNum).Value = ""
    End If
    If chkFri5.Value = True Then
    Worksheets("ASR").Range("SR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SR" & rowNum).Value = ""
    End If
    If chkSat5.Value = True Then
    Worksheets("ASR").Range("SS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SS" & rowNum).Value = ""
    End If
    If chkSun5.Value = True Then
    Worksheets("ASR").Range("ST" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("ST" & rowNum).Value = ""
    End If
    If chkOnCall5.Value = True Then
    Worksheets("ASR").Range("SU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SU" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont6(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 6 information'
    Worksheets("ASR").Range("KA" & rowNum).Value = txt6Vendor.Text
    Worksheets("ASR").Range("KB" & rowNum).Value = txt6AcctNum.Text
    Worksheets("ASR").Range("LR" & rowNum).Value = txt6Hauler.Text
    Worksheets("ASR").Range("KC" & rowNum).Value = txt6TypeWaste.Text
    Worksheets("ASR").Range("KD" & rowNum).Value = txt6NumContain.Value
    Worksheets("ASR").Range("KE" & rowNum).Value = txt6SzContain.Value
    Worksheets("ASR").Range("KF" & rowNum).Value = txt6Mes.Text
    Worksheets("ASR").Range("KG" & rowNum).Value = txt6ContainType.Text
    Worksheets("ASR").Range("KH" & rowNum).Value = txt6NumPickups.Value
    
    Worksheets("ASR").Range("KJ" & rowNum).Value = txt6MaxWeight.Value
    Worksheets("ASR").Range("KK" & rowNum).Value = txt6QuanPerMonth.Value
    Worksheets("ASR").Range("KL" & rowNum).Value = txt6HaulsPerMonth.Value
    Worksheets("ASR").Range("KM" & rowNum).Value = txt6WeightPerHaul.Value
    Worksheets("ASR").Range("KN" & rowNum).Value = txt6FlatHaul.Value
    Worksheets("ASR").Range("KO" & rowNum).Value = txt6FlatDisposal.Value
                
    Worksheets("ASR").Range("KP" & rowNum).Value = cmbRent6.Text
    Worksheets("ASR").Range("KR" & rowNum).Value = txt6BaseInvDate.Text
    Worksheets("ASR").Range("KS" & rowNum).Value = txt6BillingPd.Text
    Worksheets("ASR").Range("KU" & rowNum).Value = txt6BaseSvc.Value
    Worksheets("ASR").Range("KV" & rowNum).Value = txt6EnvFee.Value
    Worksheets("ASR").Range("KW" & rowNum).Value = txt6FuelFee.Value
    Worksheets("ASR").Range("KX" & rowNum).Value = txt6FeeType1.Text
    Worksheets("ASR").Range("KY" & rowNum).Value = txt6FeePrice1.Value
    Worksheets("ASR").Range("KZ" & rowNum).Value = txt6FeeType2.Text
    Worksheets("ASR").Range("LA" & rowNum).Value = txt6FeePrice2.Value
    Worksheets("ASR").Range("LB" & rowNum).Value = txt6FeeType3.Text
    Worksheets("ASR").Range("LC" & rowNum).Value = txt6FeePrice3.Value
    Worksheets("ASR").Range("LD" & rowNum).Value = txt6FeeType4.Text
    Worksheets("ASR").Range("LE" & rowNum).Value = txt6FeePrice4.Value
    Worksheets("ASR").Range("LF" & rowNum).Value = txt6FeeType5.Text
    Worksheets("ASR").Range("LG" & rowNum).Value = txt6FeePrice5.Value
    Worksheets("ASR").Range("LL" & rowNum).Value = txt6Rate1.Value
    Worksheets("ASR").Range("LM" & rowNum).Value = txt6Rate2.Value
    Worksheets("ASR").Range("LN" & rowNum).Value = txt6Rate3.Value
    Worksheets("ASR").Range("LO" & rowNum).Value = txt6Rate4.Value
    Worksheets("ASR").Range("LP" & rowNum).Value = txt6Rate5.Value
    
    If chkMon6.Value = True Then
    Worksheets("ASR").Range("SX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SX" & rowNum).Value = ""
    End If
    If chkTues6.Value = True Then
    Worksheets("ASR").Range("SY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SY" & rowNum).Value = ""
    End If
    If chkWed6.Value = True Then
    Worksheets("ASR").Range("SZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("SZ" & rowNum).Value = ""
    End If
    If chkThurs6.Value = True Then
    Worksheets("ASR").Range("TA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TA" & rowNum).Value = ""
    End If
    If chkFri6.Value = True Then
    Worksheets("ASR").Range("TB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TB" & rowNum).Value = ""
    End If
    If chkSat6.Value = True Then
    Worksheets("ASR").Range("TC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TC" & rowNum).Value = ""
    End If
    If chkSun6.Value = True Then
    Worksheets("ASR").Range("TD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TD" & rowNum).Value = ""
    End If
    If chkOnCall6.Value = True Then
    Worksheets("ASR").Range("TE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TE" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont7(LocID As Integer, rowNum As Integer)
Dim days As String

'Save Container 7 information'
    Worksheets("ASR").Range("MA" & rowNum).Value = txt7Vendor.Text
    Worksheets("ASR").Range("MB" & rowNum).Value = txt7AcctNum.Text
    Worksheets("ASR").Range("NR" & rowNum).Value = txt7Hauler.Text
    Worksheets("ASR").Range("MC" & rowNum).Value = txt7TypeWaste.Text
    Worksheets("ASR").Range("MD" & rowNum).Value = txt7NumContain.Value
    Worksheets("ASR").Range("ME" & rowNum).Value = txt7SzContain.Value
    Worksheets("ASR").Range("MF" & rowNum).Value = txt7Mes.Text
    Worksheets("ASR").Range("MG" & rowNum).Value = txt7ContainType.Text
    Worksheets("ASR").Range("MH" & rowNum).Value = txt7NumPickups.Value
    
    Worksheets("ASR").Range("MJ" & rowNum).Value = txt7MaxWeight.Value
    Worksheets("ASR").Range("MK" & rowNum).Value = txt7QuanPerMonth.Value
    Worksheets("ASR").Range("ML" & rowNum).Value = txt7HaulsPerMonth.Value
    Worksheets("ASR").Range("MM" & rowNum).Value = txt7WeightPerHaul.Value
    Worksheets("ASR").Range("MN" & rowNum).Value = txt7FlatHaul.Value
    Worksheets("ASR").Range("MO" & rowNum).Value = txt7FlatDisposal.Value
                
    Worksheets("ASR").Range("MP" & rowNum).Value = cmbRent7.Text
    Worksheets("ASR").Range("MR" & rowNum).Value = txt7BaseInvDate.Text
    Worksheets("ASR").Range("MS" & rowNum).Value = txt7BillingPd.Text
    Worksheets("ASR").Range("MU" & rowNum).Value = txt7BaseSvc.Value
    Worksheets("ASR").Range("MV" & rowNum).Value = txt7EnvFee.Value
    Worksheets("ASR").Range("MW" & rowNum).Value = txt7FuelFee.Value
    Worksheets("ASR").Range("MX" & rowNum).Value = txt7FeeType1.Text
    Worksheets("ASR").Range("MY" & rowNum).Value = txt7FeePrice1.Value
    Worksheets("ASR").Range("MZ" & rowNum).Value = txt7FeeType2.Text
    Worksheets("ASR").Range("NA" & rowNum).Value = txt7FeePrice2.Value
    Worksheets("ASR").Range("NB" & rowNum).Value = txt7FeeType3.Text
    Worksheets("ASR").Range("NC" & rowNum).Value = txt7FeePrice3.Value
    Worksheets("ASR").Range("ND" & rowNum).Value = txt7FeeType4.Text
    Worksheets("ASR").Range("NE" & rowNum).Value = txt7FeePrice4.Value
    Worksheets("ASR").Range("NF" & rowNum).Value = txt7FeeType5.Text
    Worksheets("ASR").Range("NG" & rowNum).Value = txt7FeePrice5.Value
    Worksheets("ASR").Range("NL" & rowNum).Value = txt7Rate1.Value
    Worksheets("ASR").Range("NM" & rowNum).Value = txt7Rate2.Value
    Worksheets("ASR").Range("NN" & rowNum).Value = txt7Rate3.Value
    Worksheets("ASR").Range("NO" & rowNum).Value = txt7Rate4.Value
    Worksheets("ASR").Range("NP" & rowNum).Value = txt7Rate5.Value
    
    If chkMon7.Value = True Then
    Worksheets("ASR").Range("TH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TH" & rowNum).Value = ""
    End If
    If chkTues7.Value = True Then
    Worksheets("ASR").Range("TI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TI" & rowNum).Value = ""
    End If
    If chkWed7.Value = True Then
    Worksheets("ASR").Range("TJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TJ" & rowNum).Value = ""
    End If
    If chkThurs7.Value = True Then
    Worksheets("ASR").Range("TK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TK" & rowNum).Value = ""
    End If
    If chkFri7.Value = True Then
    Worksheets("ASR").Range("TL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TL" & rowNum).Value = ""
    End If
    If chkSat7.Value = True Then
    Worksheets("ASR").Range("TM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TM" & rowNum).Value = ""
    End If
    If chkSun7.Value = True Then
    Worksheets("ASR").Range("TN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TN" & rowNum).Value = ""
    End If
    If chkOnCall7.Value = True Then
    Worksheets("ASR").Range("TO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TO" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont8(LocID As Integer, rowNum As Integer)
'Save Container 8 Information'
Dim days As String

    Worksheets("ASR").Range("OA" & rowNum).Value = txt8Vendor.Text
    Worksheets("ASR").Range("OB" & rowNum).Value = txt8AcctNum.Text
    Worksheets("ASR").Range("PR" & rowNum).Value = txt8Hauler.Text
    Worksheets("ASR").Range("OC" & rowNum).Value = txt8TypeWaste.Text
    Worksheets("ASR").Range("OD" & rowNum).Value = txt8NumContain.Value
    Worksheets("ASR").Range("OE" & rowNum).Value = txt8SzContain.Value
    Worksheets("ASR").Range("OF" & rowNum).Value = txt8Mes.Text
    Worksheets("ASR").Range("OG" & rowNum).Value = txt8ContainType.Text
    Worksheets("ASR").Range("OH" & rowNum).Value = txt8NumPickups.Value
    
    Worksheets("ASR").Range("OJ" & rowNum).Value = txt8MaxWeight.Text
    Worksheets("ASR").Range("OK" & rowNum).Value = txt8QuanPerMonth.Text
    Worksheets("ASR").Range("OL" & rowNum).Value = txt8HaulsPerMonth.Text
    Worksheets("ASR").Range("OM" & rowNum).Value = txt8WeightPerHaul.Text
    Worksheets("ASR").Range("ON" & rowNum).Value = txt8FlatHaul.Text
    Worksheets("ASR").Range("OO" & rowNum).Value = txt8FlatDisposal.Text
                
    Worksheets("ASR").Range("OP" & rowNum).Value = cmbRent8.Text
    Worksheets("ASR").Range("OR" & rowNum).Value = txt8BaseInvDate.Text
    Worksheets("ASR").Range("OS" & rowNum).Value = txt8BillingPd.Text
    Worksheets("ASR").Range("OU" & rowNum).Value = txt8BaseSvc.Value
    Worksheets("ASR").Range("OV" & rowNum).Value = txt8EnvFee.Value
    Worksheets("ASR").Range("OW" & rowNum).Value = txt8FuelFee.Value
    Worksheets("ASR").Range("OX" & rowNum).Value = txt8FeeType1.Text
    Worksheets("ASR").Range("OY" & rowNum).Value = txt8FeePrice1.Value
    Worksheets("ASR").Range("OZ" & rowNum).Value = txt8FeeType2.Text
    Worksheets("ASR").Range("PA" & rowNum).Value = txt8FeePrice2.Value
    Worksheets("ASR").Range("PB" & rowNum).Value = txt8FeeType3.Text
    Worksheets("ASR").Range("PC" & rowNum).Value = txt8FeePrice3.Value
    Worksheets("ASR").Range("PD" & rowNum).Value = txt8FeeType4.Text
    Worksheets("ASR").Range("PE" & rowNum).Value = txt8FeePrice4.Value
    Worksheets("ASR").Range("PF" & rowNum).Value = txt8FeeType5.Text
    Worksheets("ASR").Range("PG" & rowNum).Value = txt8FeePrice5.Value
    Worksheets("ASR").Range("PL" & rowNum).Value = txt8Rate1.Value
    Worksheets("ASR").Range("PM" & rowNum).Value = txt8Rate2.Value
    Worksheets("ASR").Range("PN" & rowNum).Value = txt8Rate3.Value
    Worksheets("ASR").Range("PO" & rowNum).Value = txt8Rate4.Value
    Worksheets("ASR").Range("PP" & rowNum).Value = txt8Rate5.Value
    
    If chkMon8.Value = True Then
    Worksheets("ASR").Range("TR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TR" & rowNum).Value = ""
    End If
    If chkTues8.Value = True Then
    Worksheets("ASR").Range("TS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TS" & rowNum).Value = ""
    End If
    If chkWed8.Value = True Then
    Worksheets("ASR").Range("TT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TT" & rowNum).Value = ""
    End If
    If chkThurs8.Value = True Then
    Worksheets("ASR").Range("TU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TU" & rowNum).Value = ""
    End If
    If chkFri8.Value = True Then
    Worksheets("ASR").Range("TV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TV" & rowNum).Value = ""
    End If
    If chkSat8.Value = True Then
    Worksheets("ASR").Range("TW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TW" & rowNum).Value = ""
    End If
    If chkSun8.Value = True Then
    Worksheets("ASR").Range("TX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TX" & rowNum).Value = ""
    End If
    If chkOnCall8.Value = True Then
    Worksheets("ASR").Range("TY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("TY" & rowNum).Value = ""
    End If
End Sub
Private Sub SaveContracts(LocID As Integer, rowNum As Integer)
'Save contract information for each container'
    Worksheets("ASR").Range("BE" & rowNum).Value = cmbContract1.Value
    Worksheets("ASR").Range("DE" & rowNum).Value = cmbContract2.Value
    Worksheets("ASR").Range("FE" & rowNum).Value = cmbContract3.Value
    Worksheets("ASR").Range("HE" & rowNum).Value = cmbContract4.Value
    Worksheets("ASR").Range("JE" & rowNum).Value = cmbContract5.Value
    Worksheets("ASR").Range("LK" & rowNum).Value = cmbContract6.Value
    Worksheets("ASR").Range("NK" & rowNum).Value = cmbContract7.Value
    Worksheets("ASR").Range("PK" & rowNum).Value = cmbContract8.Value

End Sub
Private Sub btnSaveINV_Click()
'Action of clicking Save button
Application.ScreenUpdating = False
'Save Location Standard information'
Call SaveILocData(cmbLocations.Value)
'Save Location Container Information'
Call SaveContData(cmbLocations.Value)
Application.ScreenUpdating = True
End Sub
'Main method to Save All Data for Containers in a location'
Private Sub SaveContData(LocID As Integer)
    
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
     If txt1BaseSvc.Value <> "" Or Worksheets("ASR").Range("AA" & rowNum).Value <> "" Then Call SaveCont1(LocID, rowNum)
     If txt2BaseSvc.Value <> "" Or Worksheets("ASR").Range("CA" & rowNum).Value <> "" Then Call SaveCont2(LocID, rowNum)
     If txt3BaseSvc.Value <> "" Or Worksheets("ASR").Range("EA" & rowNum).Value <> "" Then Call SaveCont3(LocID, rowNum)
     If txt4BaseSvc.Value <> "" Or Worksheets("ASR").Range("GA" & rowNum).Value <> "" Then Call SaveCont4(LocID, rowNum)
     If txt5BaseSvc.Value <> "" Or Worksheets("ASR").Range("IA" & rowNum).Value <> "" Then Call SaveCont5(LocID, rowNum)
     If txt6BaseSvc.Value <> "" Or Worksheets("ASR").Range("KA" & rowNum).Value <> "" Then Call SaveCont6(LocID, rowNum)
     If txt7BaseSvc.Value <> "" Or Worksheets("ASR").Range("MA" & rowNum).Value <> "" Then Call SaveCont7(LocID, rowNum)
     If txt8BaseSvc.Value <> "" Or Worksheets("ASR").Range("OA" & rowNum).Value <> "" Then Call SaveCont8(LocID, rowNum)
     Call SaveContracts(LocID, rowNum)
End Sub
